@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}}}11o}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}u) !"`3!3LIST "D:INTRO.LSTCONV=}ERTED BY JOHN BLUMECODEWRITER CORPORATION;@%, AU  AUp6-F:A,&@6-A>}V$+%@+%@++6-?:C:,<%@<%@<A,II6-?:C:,<BBy<<AY?}<@F<B2w<@<A<,?%A?6-?:C:,<%A<%A<A(,?%A@@}?6-?:C:,<%A@<%AA<A(,B2W@A#@6-A((6-?:C:,:,7 $0,0,60,60,60,C}60,255,2550uSYSTEM CONFIGURATION5uB2y@?u +@DuQ0@@70@@@D}Q0@@Iu7-7 @____________________Nu)-@@) @SYSTEMSuE}0-@@0 @ CONFIGURATIONXu'-@@' @MENU]u7-@7 @______F}______________bu,-@@ , @ NUMBER OFgu7-@@7 @ DRIVES = >:@,lu7- }231229008599711041168216219825120223825128331830136239900406435251446475251486515251 H}523529315305388154054421546558915625990060262063622639636827009470571996722759007647 I}97758048379684287900٠͠Stock # .......Date ../../..Item .........................Descrip J}tion .........................Terms ..............................Name ............. K}............Addr .........................City .........................Ph (...)........St ..Zip ......... L}Qty Received .....#Qty Shipped .....#Cost/item ........$Total ........$ M}Total units (Qty-on-hand) ......#Total value of inventory ........$ }+,|YYRPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMDO}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESCP}REELINMSCREEXLPLINEF1F1F1F2F2F1ENUTPTPIDQ}@ @ @@@R} !"#$%&S}'()*+,-./0123456T}789:;@<=>?@A@BCDEU}FGHIJKLMNOPQRSTUV}VWXYZ[\]MAX RECORDS=325FILE LENGTH=269FILE NAME=INW}VENTSET UP DIM ARRAYS+6-@ B+AR@ >:A%, Running... @ AX}()9 Bq B)-@@"9  Printing...*2-@!6.2-@8+% 1Y}!A'%6-&A(,67%@,.>:,-   3. / B B0$U))31,28,31,30,31,30,31,Z}31,30,31,30,31Z?9@,#@.-@@2";68,-? _36-@#6-A%'6-36-A8[}dDIM STATEMENTSi00;$@%@,;@@,;@ ,nH6-@H;A3,9@$,9@#,;\}@@,;@@,sRR;A8,;A8,9@$,9@#,9@#,;@@,;@@,v%%;@@,;@@]},;,9,x&6-@ B&(A'} B A ..@@ D1:INVENT.SCR:^}@%68@,-@:68@,-@-@@@@_}@ 68,-68%@,-8,%%%68%@,-8,%@%&&68,-P:'@@,!!68,-&@`}&@@$8, -@@$$678,<8%@,&@,. @ B)a}6-F:Ap, B)(A h6-6-|* 6. 67@@,.*67@,.$ 6. 67,.b}$67@,."A@W A@#BU! A,@W@@ D1:INVENT.GLc}B-@" A3@ 6-A:,6-8%@,&8,""8,&@B$B#$d}$678,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-@:6.e} D :INVENT.IDX:67@<@,.=:F:Ap,,+@+@@@67,. 6-f}% A`56- A56-A:7$@%@,, B* 6..67@@,.*67@,.g}$@ B` Be5 +6-@+AR@5 B >:A%,*-@h}@* Program designed-@@ by0-@ @0 CodeWriter Corporation3-@@i}3 Business Inventory System .-@@.(Your selections are:>-@@ > $File preparation.(j}first time only).F>-@@>($Enter new records..................E>-@@>($Lookup records.....k}................L!>-@@>($Search records.....................S&>-@@>($Update records......l}...............U+>-@@>($Delete records.....................D0>-@@> $Exit program.........m}..............X5>-@@>($Exit to main menu..................M:>-@@ >($Enter function by presn}sing the key ?<-@@"<(" To return to this menu press D16-@76-@ '6-@'1 B Fo}4)4>:@',AH4FAI"AK4EA M4LBO4SB p}Q4UB0S* 4D B@ @* AX* 4XA8'+*[4MAq}] A16-@ B' B1 Ap + A)AR@;-@@^ r}Loading program please wait...pAR% D:MENU.BAS Bm +'0@@s}A0@@[0@@@mAR@9-@@9 This option will erase allt} your5-@@5 previously entered records.=-@@= #To begin file preparation press =-u}@@= #To exit file preparation press ?-@@? %Please enter choice/press RETURN ۠ 16v}-@26-@7'6-@1 B 4CA4XA A5LV? >:A%,"-w}@@? This will take some time` Bot A##@@E:x}A `a (}-@@2 Your file is full.D-@@a Hit to continue.#6- By}# A# 6- B }#AR@#-@ 8,!@A!0*/-8,8,/ z}78,<8%@,&@,48,"A!0>8,"@ mm/dd/yyH>8,@*8,> 7@{}<8%@,&8,,R AR\6-aH-@@"H &@# records on file |} f6--@p''8, @)8,!@A!u<-@@#< ! to skip fields/re}}turn to menuz A{0A!|@A#/ -/8, @)8,!@A!y8,~} @A!xo6-%6-8%@,&8,D8,&@B$B#e678,<8%@,&@,.o A!y}$$678,<8%@,&@,.  6- A!$$678,<8%@,&@,. 6-@# }B BP#6-@j-@@"? % for menu, to print, j(% to change, to s}ave 4F:Ad,"@(*AdAU4 A#,F:B2y,"@" @@, A" DF:B2y,"@}$6-@. B3:6-D A"P F:B2y,"@A"P A"%(A#6.7@}<@,! BP B! B6-%@ A E@ A@B% 6-8," @})!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@,&8,F'6-6-"@' BH 4}$I BJ3!@3&@B B!B!LAN!@* A%R#"@} A# A S6-TAV''B%B&B$B#X$Y 4 $\ 6- }-@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`  ($bD7<,4m)7<,4MA6-A:}78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$0AM-@@"> $KEY} FIELD - YOU MUST ENTER SOMETHINGJ6-@M$6-$*+9#@@E:/6-9 B} + B(A+>-@@">($ to exit, to print, +((( to change, to co}ntinue+4F:Ad,"@(*AdAU4 B@%+,F:B2y,"@" @@, Bp*+-F:B2y,"@}#@- B/+ F:B2y,@B54+ B3(B@5+ 6-6-%@6+V+7@<@},07@<@,5 B `L6.7@<@,V BP9+ B B>+ B0.@ A}..6-@.##@@E:.6-@ B. @B%. 6.6.6}-. }-@@.-- $SCAN ALL OR SELECTED RECORDS (S/A)? .16-@6-@8'6-@21 B} .4B%/4AB#p/4SB `/ B / }-@@!/>' WHICH FIELD TO S}ELECT ON (1-18,> OR '?' TO LIST)? &/16-@6-@'6-@1 B0/4>:@',B%:/+ 4?}6-! B0+ B `D/4 B!@6-A:,4 @)!@B!@N/6--@X/56-%@}58, @)8,!@B! b/  B!Pl/2-@@#(  Ġ2 B v/"6-8%@},&8,"6-8,/!@6-@/4-@@4 78,<8%@,&@,/ @B"p/, }  ,  SMALLEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /(  (  LARGEST VALUE TO SEL}ECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-@6-@'6-@ / B#0//6.7@}<, "@/6.mm/dd/yy//   /  SMALLEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0,  , } LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0!6-@ 6-@0!6-*0 B'/04}B%40 6-6.6->0+6-%@!@ +6-%@@0 B'C04B%H0 6-6.6-}R0!&@B%W0 >:A%,\0+6-@$6-&@%6-+6-f0 B Bp0"B}%0u0"@B$qz0"@B$0$$6.78,<8%@,&@,04B$@02)*4B%}p04B%003)*4B%p0 B%00$$6.78,<8%@,&@,04B$u0 6.6.} B'6.0## )*"B%p04B%00 6.6. B'6.0## )*"}B%p0 B%00''6-A:78,<8%@,&@,,04B%0 )*"B%p04B%00}!)*"B%p0 BP0AR@ B0>-@@">($ to exit, to print, }0--($to change, to continue, elete1:F:Ad,"@(*AdAU06-: B%p1>F:Ad,"@X}*AdAU4 B@0> B#p1,F:B2y,"@" @@, B%5 1 F:B2y,"@B%p1 F:}B2y,@B%E1& B36-6-&(B%51V+7@<@,07@<@,5 B `L6.7@}<@,V BP1! B B! B%516-%@ B#p$1@ A1! 6-6-"@}! B1-6-4)4*6-%@-$1+!@+&@B B!1B'1}"@6-A:,1B%B&B%1-6-%@6-#6-@2- B1 6-4N1 6.1$2}2##@@E:2 B2(B1p2 B32B12 6. BP3j-@}@"> $Hit to return to menu, or P-@@#j to continue editing.3)6- B)4}B1p"3 B,3 B0@63 6-6-%@@3337@<@,47@<@,B1`J3 B `T}3$6.7@<@,$ BPh3 B Br3@ A33 6.6-4"("6-A:7}A#<A),, 46- 4 B4 }4Q0@@70@@Q0@}@@!4 BP&4<-@@"< "Enter 1-15 to change field, '?' to04++ " list, 'p'rint record or 's'a}ve. :416-@#6-@4'6-@1 B?4 BD4 4S)4s6-@ $I4/4P)4p @@}% B/ B3PN4 46-$X4+ 4?6-@! B0+ B3@b496- B!P9) @})!@B6l46--@v456-%@58, @)8,!@B404 46-@}4 A4 46-$4$$678,<8%@,&@,.4 B3  5*5R-@@"< !}ĠĠ - Hit H6-R B45 B3P66##@@E:6 B6}(B@6k B-@@#> Sure you want to delete? J6-@#V6-@3a6-@:Y,k B64}N)4B@66-&@ B `66-6@6 B`7 6. 7$>$B$END GLOBALSB BP}B[-@@", Printer not ready.>-@@#[ Hit to continue.BC-@@"!6-@"}-6-@96-C BB B$PFPC CALCS AND GLOBALSQF BRF6-A:7A<A,,F6}-A:7A<A,,F6-A:7A<A,,LGCALC P.C.'SG 6-$G 6-%&G 6-$H6 6-6-@ } B#667A<A",.H6 6-6-@ B$667A#<A),.H6 6-6-@  B#667A}0<A8,.pI B`$8JBJ6- BDJ6-GJ+-@@!+ Please enter key.LJ#}-@@# Stock # VJ16-@6-@'6-@1 B[J4)4>:@',$`J B%6.}oJ+-@@!+  qJ 6. BtJ(B`~J! 6-6-%@! BJ B}J""07@<@,B@J BPJ'-@@#'  Is this it? J06-@6-@#&6-@:N,0} BJ BJ 4Y$J 6. BJ B`JC }-@@C #No Record Found. Hit } for menuJ F:B2y,@BpJ$ N*N# 6. 67,.#67@,.4N 6.6.9NE@"6.} D :INVENT.DATE67@<@,.=:F:Ap,,>N @@CN-@HN@RN\N}6-P:'@',fN6-&$@'zN6-%@dN6-%@dN6-%@2N!@6-%@dN6.}zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@,.N-@}N''8,")8,!@BN$$6.78,<8%@,&@,N @N N1 }RECORD NUMBER=1 }LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@O@ B`O. 6.067,.$67@},.. BeO B$O B6.$O.F:A,"Ab. }DISK FULL ERROR.)O5F:A,Ab5  }}DISK ERROR #F:A,.OR!  Hit to continue.-6-96-E6-O BR$LOVO$ 6-B:,}!@$6-@`O/67%@,.!6-@/6-&@jO* @6-@'6-*$tOK6-$@}&@.37<%&@,:6-H6-%@K$~O"BO.6-P:+%,'@,.6-$@&@}O/7<%&@,6-O&37<%&@,&6-%@O BPO6-$@&@O6-+47<%&}@,,O6.7<%@,$OP:6. D :INVENT.DAT:67@<@,.=:F:Ap,,P+@+@@}#P# 6. 67,.#67@,.(P@2P-@:, >:,w"Bpw&6-%@&7<,0/Bpw.6-%@$*@@1. Bpw) 6-}6-&@)AR@w -% 7<,w"7<,4/"6-&@wD67%@,.'AR}:*@@0D Bpwx x6-F:B2y,x"@*"@$x"@*"@$x"@}*"@$x"@*"@$#x"@*"@$(x"@*"@$-x B%Px B }Zx0Y*0N*0Bdx$x.@.@@K:xAR@x -x)!}@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUB x"@'}6.$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:, $y]} 444MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU}MTXNUMSESUMITEMFLDBPDFFEPSVDVDSECFLGFSFLTYPPAGSECTIOROCOPDIFKENOPPMBLANKOERVA1VA2VNVN}VNVNVNVNGTSUMPCF2ISPFLAFL } @@@} !"@#@$@%&'@()*}+@,-./0123456789}:;<=>?@ABCDEFGHI }JK@L@M@NOPQRSAVE "D:BASIC.RZAR@ }d }@(>:A%,"-@@@ Business Inventory Reporti'-@@ '  Designed by :n0-@ @0  }CodeWriter Corporationx-@A . STEP ONEjj;@@,;@@,;@@,;@f }$@,;@,;@$A,;@"$@9, RR;@,9@#,9@$,9@$,9,9 }@,9,&&;@,;@,;@,ZZ;@,;@,;@,;@"$@9,;@,};@,;A,T9@,8F:Ap,"@)F:Ap,"@J6.=:F:Ap,,T A .A +'0@}@A0@@ @84-@@4 Which drive will hold yourB*-@@* da}ta disk? (1/2)L16-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Ap}j=6. D :INVENT.DAT167@<@,.=:,=6-@o 6.67,.IDXt 6.67,.GLB~7 A`7@}@ D:INVENT.SCR A0 A APD B@/68@,-@D68@},-@-@@@@@" 68,-"68%@,-8},%%%68%@,-8,%@%&& -@@$$678,<8%@,&@,. }@..@@ D :INVENT.F01@@6-A:, 9,9%,}9, @@ 2 6. #67@f$@,.267@,.Z67@,.!67@,.267A}a,.-B67A@,.Z67Ab,.7Aa,-@@( 68,-68,-68,-2 7}"A < 9,F-@P@Z67%A@,.d68%,-i68,-%B:,&@}n x A @+@/-@@/ @ PLEASE PLACE/-@@/ @} PROGRAM DISK.-@@. @ IN DRIVE #10-@@0 @ PRESS --@@}- @ WHEN READY6-@ B$ A2. STEP TWO4 6.What is today's date? H} BM 6.6-R!-@!(8,A!2S//&@A!@A!`A!A"T W: (}-}@@: Is this all correct? (y/n)X16-@36-@'6-@21 BY4YA00Z A }\--6.#ENTER THE LOW STOCK # FOR THE RANGEa6-@ B6.f..6.$ENTER THE HIGH STOCK # FOR THE RANGE}k"6-@ B6."$p$$6.ENTER THE LOW COST/ITEM u6-@  B6-z$$6.ENTER THE HIGH  }COST/ITEM "6-@  B6-"$((6.ENTER THE LOW QUANTITY ON HAND6-@ B6-))6.!}ENTER THE HIGH QUANTITY ON HAND"6-@ B6-"$''6.ENTER THE LOW INVENTORY VALUE6-@  B"}6-((6.ENTER THE HIGH INVENTORY VALUE"6-@  B6-"$  . STEP THREE  A +#}'0@@ @A0@@ @ 9-@@9 Do you want this report sent to --@$}@- creen or rinter?  16-@%6-@'6-@21 B  0S*0PA0` 6. ! 4%}P B!A0` A5 OPTIONAL SECTIONING $-@ 68,-$  % } B %-@&}@ Do you want all sections /-@@/ of this report? (y/n) 16-@'6-@'6-@2'}1 B ) 4Y-@"68,-& )$  } B 6- 3-@@3 Enter a sectio(}n number to 4-@@4 include in this report, or (-@@(  to exit .-@@)}. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B  4 B$  A36-A:, *} @)!)8,A3 46-P:'@@,4-%@&@@$%@  * 6-%@4 68,-> A3+} UPPER LOWER CASE  }-@@ !! Do you want to ignore the 2-@@2 difference betw,}een upper /-@@/ and lower case? (y/n) 16-@'6-@'6-@21 B  6.N4N-}A9 6.Y  6. B(6.  6. B(6.<4P)4p A`. STEP FOUR.}A +'0@@ @A0@@ @0-@@0 Do you wish to sort? 16-@/}6-@&'6-@21 B4NAP_ A@c@@@@ D:SORT.BASK0}@U B_ A@p }-@@BB  Can't find >:@4, D:SORT.BAS>:@4, on disk.-1}@@&9-@@9 Enter field to sort records by.6-@@6 (1 - , or to list2})? 16-@)6-@'6-@1 B+4L)4l B0! }+ A@p A@6-A:,A-3}!**8,!*8, @7 BA AAP";-@@; Field  invalid. Enter for,@-@4}@6 a list of fields to sort on.@ A@6M 6-6-#-@?8,!*8, @M6-5}%@8 ;ASC, OR DSC SORT@Q-@@ .-@@Q scending or escending sort?J'66}-@56-@'6-@2T# B #0A*0DAA^ 4D6-6h//@@D:SORTP7}ARS.DAT|9& @7@}67@"$@8,.267@,.-&@-&@ B`  <-@?}@< "Line up your printer and hit  #6-@ B# B }-@@ Do you@} want another test(U-@@'  page? (y/n) 36-@?6-@K6-@2U B24YAddA}$XPRINT VARIABLESbx @ @* @7 @D @Q @^ @k @B}x @L @V-@` @8,j   $'PRINTER CHECK'6-@$'8 BC}`@8@@P:.'6-8' B@B'$L'5-@@"+ D}5 B@*+%%PRINT PAGE OF REPORT TO PRINTER ++3B:, @f$@367@f$@,. +''E}-@@f$@@ +37<%@y,*+ 4+$RSTRING INPUT R6-@6-@R }-F}@R &R B0R B$$lRNUMBER INPUTmR }nR6-@6-@vR-@R R G} BR B`6-A:,R B$RE-@@; !Invalid Number. Please Try Again.E BSDATH}E INPUTS }S86-@6-@$6-B:,8 @(BS' @16-@2&' BT6-@I}T-@ T,6-F:@,"@,6-&@T6-@ B$T% BP-@@% J}.T 6-P:A:7@<@,,,3T 6-P:A:7@<@,,,8T 6-P:A:7@<@,,,=T++ @)!@)K} @BPBT88"@)*"@*"@$P:'@,BLT++ @)) @1*@BVT??!@L}1)"@)"@)"@ )"@BPjT6-B$%A$%~T B$TK-@@9 IM}nvalid date. Please try again.K-@@T BWFORMAT STRINGW B$@6-B:,6.W-@:7,,"@N}2#6-&@- B$ W6.7@<,W B$YFORCE UPPER CASEYB:,"$$Y-@BO}:,.Y6-@:7,,8Y/!@* A#/67<,.>:&@2,BY   $YLIST FIELDSY4 }AR@(6-P}46-@Y6-@6-Y!!6.Keyboard entered fieldsZ%6-@6-@% B3ZQ}B1Z##6.Program calculated fields(Z%6-@6-@% B3:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bp_}w) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,.'AR`}. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLEa} KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*b}"@$x"@*"@$x"@*"@$#x"@*"@$(x"@*"@$c}-x B%Px B Zx0Y*0N*0Bdx$x.@.@@K:xAR@d}x -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUe}B x"@'6.$x!@1* @6-y'!@* A#'6-&@2y B y -f}6.>:, $y]@)0@@C0@@]0@@@"y$|y--@g}@"- 7@<@5,y$}U-@'@@U((Π٠Πq}*B'DOS SYSB+AUTORUN SYSB"-BOOT BGINVENT SCRBNINVENT PRGBiINVENT R01BztINVENT P01BINVENT F01B)SORT BASBDMENU BASB^MENU FLEB cNOTES BASB'oNOTES FLEBLINK BASBUSER BSORTPARSDATDVARS TMP}&&( <1> | All Inventory Records }JJ(B <2> | Records with a Stock # within | the specified range}QQ(I <r}3> | Records with a Cost/Item | within the specified range}JJ(B <4> | Records with a Quantity on | s}Hand within a range}LL(C <5> | Records with an Inventory | Value within a range(}$ D:INVENT.R01NUzMNfK<_?@@A{}BCDEFGHIJKLMNOPQ|}RSTUVWXYZ[@\@]@^_`}}abSAVE "D:BASIC.P. STEP ONEjj;@@,;@@,;@@,;@f$@,;~}@,;@$A,;@"$@9, ]];@,9@#,9@$,9@$,9,9@,9},9,&&;@,;@,;@,(]];@,;@,;@,;@,;@,;@,;}A,;@,)&6-F:Ap,&!A0.A +'0@@A0@@ @8}4-@@4 Which drive will hold yourB*-@@* data disk? (1/2)L16-@"6-@'6-@}1 B V%01*02 B % A` 6-A:,Apj=6. D :INVENT.DAT167@<@,.=:,}=6-@o 6.67,.IDXt 6.67,.GLBy 6.67,.I01{67@<@,.1~7 A`7@}@ D:INVENT.SCR A0 A AP/ B@/68@,-@}-@@@@@ 68,-68%@,-8,% }@..@@ D :INVENT.F01@@6-A:, 9,9%,}9, @@-@@( 68,-68,-68,-2 <%%9%@,};@$@V,F%68@,-@%(AK-@P@Z678,,.d68%@,-}8,%B:,i68%,-n x A  68,- @ A @+@/-@@}/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@@. @ IN DRIVE #1}0-@@0 @ PRESS --@@- @ WHEN READY6-@ B$R}EAD IN TEMP VARS7@7@@ D:DVARS.TMP! B!READ IN VARIABLES@} 6.N6.Yx@@*@7@D@Q@^@}k@x@ @ 9, -@ @68,-   @ 44@3}@ D:DVARS.TMP A`  CLEAR OUT SUMMARY  6-6-}ADJUST SEC. SUMMARY"$3 A@26-36-A:7A<A,,3 A@46-}36-A:7A#<A),,3 A@66-36-A:7A0<A8,,"ADh!8@, !68}@,-m!8@,!!68@,-r68@,-8@,%w!8@, !68@,-|!8@,!!6}8@,-68@,-8@,%!8@, !68@,-!8@,!!68@,-&$068@},-568@,-:68@,-?68@,-D68@,-I68@,-N68@,-S68@},-$OVERALL SUMMARY ADJUST "6-%$"$"AH3}8@ , 8@,368@ ,-8@, 38@,!8@,368@,-8@,%&&68@,-8@,%}8@,*38@, 8@,368@,-8@,/38@,!8@,368@,-8@,4&&68@},-8@,%8@,938@, 8@,368@,-8@,>38@,!8@,368@,-8@}, 6-%$68@ ,-8@,68@,-8@,68@,-8@,68@,-8@,}68@,-8@,68@,-8@,68@,-8@,68@,-8@,~ 6- $}PRINT SUMMARIES B6-A?(-67A0,.SUMMARY FOR SECTION #?67AQ,.=:,b&6}7A0,.OVERALL SUMMARYG67@e<@r,. b67@x<@,.1 ##6-+!,$%+",$}77*")"*")"ARI.6.$MAXIMUM COST/ITEM ?6-8@%,I AY}I.6.$MINIMUM COST/ITEM ?6-8@%,I AYI.6.$TOTAL TOTAL UNITS (QTY-ON-HAND) ?6-}8@%,I AYI.6.$MAXIMUM TOTAL UNITS (QTY-ON-HAND) ?6-8@%,I AYI.6.$MINIMUM TOTAL UNITS }(QTY-ON-HAND) ?6-8@%,I AYI.6.$TOTAL TOTAL VALUE OF INVENTORY ?6-8@%,I AYI.6.}$MAXIMUM TOTAL VALUE OF INVENTORY ?6-8@%,I AYI.6.$MINIMUM TOTAL VALUE OF INVENTORY ?6-8@%},I AY(AU6-w6-@|3#6.NUMBER OF RECORDS INPUT: )6-3 AY B$} 6-%A`6-@ (67%,.OVERALL(6-%@*67%,.6-%B:,467%,.=:,>$p}z. STEP SIXA +'0@@ @A0@@6 A`6-6@}@@6-%@67&@,.=:B%,)67&@,.7&@,) A`P} Aa@ @@ Aa  Ai A` Aap6-@@}67,.6-B:,%@ AaP226-A:7P:'@,$@%@,,&@$ Ab@3}REORDER INDEX$ AS PER I018 B-@B3 6- 36-A:7$@&@<$@,,L/6-$@&@}/6-@$&@VQQ67<%@,.=:A%@:7%@,,%@'$+@:7,,&@d,&@d,`W!67<%@},.7%@,=6-@:7%@,,&@2I!@W6-&@dj!!67%@<%@,.>:,t  Ad+}@+@@@ B 8 6. #67@f$@,.267@,.86.Q 6}.67@,.)67Aa,.-967A@,.Q67Ab,.7Aa,<FSTART PRINTING REPORTPZA +}'0@@A0@@ @d?AR@? %Your report is now being produced ...i #A}g"n56-@ A05CLEAR OVERALL SUMMARYs6-x-@{*67@x<@,. }*6-} "(8,Af`/ )6- A0/CLEAR SEC SUM6--@116-A:}7@$&@<@$&@,,6-@:7@$,, BREAD IN RECORD ApCALC PC'S A}ACCEPT/REJECT?Af0$ ) A@$ADJUST SEC SUM! A!PRINT RECORDS6-%@} * * B*PRINT LEFTOVER REC'S-6- AP-PRINT SEC SUM& AF&ADJUST OVERAL}L SUM 16-@ AP1PRINT OVERALL SUM"67B:,&@,.SCR#B Af@B@}@ D:INVENT.SCR$ B Af% AiP Af&"@ Af"+'% D:MENU.B}AS) B,1,1,1,1,1,1,1,1,1,1,1 +@/-@@/ @ PLEASE PLACE/-@@}/ @ DATA DISK IN,-@@, @DRIVE # 0-@@0 @ PRESS }--@@- @ WHEN READY6-@ B$& +@+/-@@/ @ PLEASE }PLACE02-@@2 @PROGRAM DISK IN5+-@@+ @DRIVE #1:0-@@0 @} PRESS ?--@@- @ WHEN READYD6-@ B$XbNEW PROG. CALC.'Sl}$@JACCEPT/REJECTTc66.7@<@,$ B$,4Y6 B(e 6.g3 AA6-}36-A:7A<A,,i3 AC6-36-A:7A#<A),,k3 AE6-36-A:7A0<A}8,,m B4!"@6-(+@,>!"@6-(+1*/,H!"@6-(+,R!"@}6-(+,\!"@6-(+,"$(#2#PRINT RECORD<#># BA#( BCLEAR PAGEF#4 }" B B4PRINT AND CLEAR PAGEP#-@Z# 6-8,! 6.=:8&,,d#* *6.78,<8%@},&@,i#8,"6@An#( 6-8,(6-8%@,&8,p# !6-8&,s#" Aw6-}"6-A:,u# B B x#''678,%$$@%$%A@,.# #"A0#-@#DD67}8%,%$$@%$%A@,.78,<8%@,&@,# #16-%@"#6-16-%@#$'}PRINT PAGE''67@f$@,. $' 4P B$.'76-6-% B7PRINT TO SCREE}N8'-@@ B'A"6-@0%H:,$AA6-@%@$H:,L'2@ V';2}@'6-'@;!? Bp`'.@.@@K:j')@t',"@:}?, B@" B, Bw'"@:P, Bz'"AU$~' 6-6-'"@E6-&@'}"@a6-%@'"@C6-&@'"@B6-%@'"@(6-&@'"@)}6-%@'"@06-&@'"@16-%@'"@6-&@"'"A$6-%@}"'"@6-&@@'"@6-%@@( 6- (!@@6-@@( }6-(!@D6-@D(("*"B2( BPRINT SCREEN<( B)PRINT WINDO}W ON SCREEN)) }AR@")+-@!+6-%@$+%,,))-) 7%@<%@@},6)J -@"J   ROWS %@ TO %@" @)A-@ @"A COLS %@ TO }%@@ J) -@5@" T)>-@@#> #ۿ for help, to continue.^)$*}+%%PRINT PAGE OF REPORT TO PRINTER ++3B:, @f$@367@f$@,. + BP$+''-@}@f$@@ +37<%@y,*+ 4+$,,CLEAR PAGE- -)6-6-)6-%@}-67@p,.=:,-67@x,.=:,(-D67AA,. ,67@f$@,.D67AB,.7AA,2-$ N}*NINPUT RECORD4N>N+@+@@HN2 6. #67@"$@9,.267@,.RN}@\N-@fN''8, @)8,!@BpN@zN$$678,<8%@,&@,.N }678,,.N@$UNUMERIC FORMATTINGU6-P:@#%?P,U6-P:$%?P,'V""6E)E}B  V"6-6@V# 6.=:,6-B:,#6-%@V$-@7<,4.$6-"V 'V}6. ,V%!B 6V67&,..000000@V767%@&&,.*67%@,.4 B7$JV. }6.*67&@,.+67@,..$WFORMAT STRINGW# B$@6.6-B:,#6.W-@:7,,"@2#6-&@}- B$ W6.7@<,W B$WFORMAT DATE YYMMDDW6- B%@W""6-A$A:,%A:7}@,,X6-B$A:7@,,% X B$YFORCE UPPER CASEYB:,"$$Y-@B:,.Y6}-@:7,,8Y/!@* A#/67<,.>:&@2,BY   $]: }@:  KEY FUNCTION }])()( [-] Scroll up one line.]((( [=] Scroll down one line.]--(% [+] Scroll left one character.}]..(& [*] Scroll right one character.](]((( [] Scroll up ten lines.]**(" [] Scroll down t}en lines.]//(' [] Scroll left ten characters.^00(( [] Scroll right ten characters. ^(^( [_}] Page up.^( [|] Page down.$^( [\] Page left..^( [^] Page right.8^(B^((( [P] }Send page to printer.L^-(-(" [RETURN] Continue with reportV^.-@@".  to continue.`^ F:B2y},@BA`j^$aPRINTER CHECKa6-@a8 BP`@8@@P:a6-}a B@a$aO-@@# .-@@#E O BP@0uFOOLP}ROOF INPUT ROUTINE:u4AR@6.(6-@46-Du!!"*"B`Nu -Xu,6.}mm/dd/yy"6-@, B@Bw(6..67,.(67@,.Lw ARVw-%@ `w#}#@@K:jw)@ow'"AU** @'6-tw"@'6.~wL"AU)}"@'+AR@2 =@I6-L$w"A&*Bpw%% @2)!A")"Bpw}'!67%@,.7%@<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%}@ " Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@w86}7%@,.'AR. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SEL}ECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"}@$x"@*"@$x"@*"@$x"@*"@$#x"@*"@$(x}"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@@}K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)}@x"AUB x"@'6.$x!@1* @6-y'!@* A#'6-&@2}y B y -6.>:, $y]@)0@@C0@@]0@@}@"y$|y--@@"- 7@<@5,y$ D:INVENT.P01NPOBETYPERRCRNUMFLDNUMTXNX1188036358 ../../.. *** Inventory Report *** SECT PAGE  Stoc}k # Item Description Qty On Hand Cost/Item Inventory Value 21-1410-1590-12139}01853-12269-1161--------------------------------------199-------------------------------------236----- StocsghSCRIDXDATPNTINDEXSRLTRPRTREPNUDSFLLENGTTYPIGCASUDOWIPNFFLLOHIGMIEMAR!} !}!} !"SAVE "D:SORT.BASdPROSPECTIVE SORTn1) ENTER SORT PARMSx2) REQUEST DATA DISK3)!} READ IN INDEX$4) READ IN RECORDS5) SORT RECORDS6) CREATE .I## FILEHOUSEKEEPINGpp;@,!};@,;@,;@,;A@,;A$@B,;A,;@@,;@@,,STEP ONE6//@!}@D:SORTPARS.DAT@@@B@@J@@K!}@@L6-!6- M 6-O:,N"@6-@O"@6-@Q S!}TEP TWO REQUEST DATA DISKRT 6.6-B:,%@^67&@,..IDXh 6.r67,.=:A%,|)67AAAH67&%@"}<,.R6-%@%W-@"@ \ fpSTEP FIVE: SORTz"@AP,-@"}@, RECORDS SORTED: 16-%@""-&@6@6-%@6-&@,,6."}7$%@<+%@,$&@,66/7$%@<+%@,$&@,*A@6617$%@<+%@,$"}&@,*A@>.37$%@<$+%@,&@,*46-> A>.27$%@<$+%@,&@,"}*46-> A "6- A 6-P:+%%@,'@,>.37$%@<$+%@,&@,*46" }-> A `>.27$%@<$+%@,&@,*46-> A `6-&@ A `06-$+&,0AV" }$P:'AV,"A $$6.7$%@<+%@,$,SS67$%@<$++&@,%@,,.7$+%@,%@" }<$+%@,,$$67$%@<$+%@,,. -@"@ &  A0NUMBER TO STRING"" } A6-"6-A:,# B#6.0001.0000000000"$6-P:L:O:,,,6-O:,'@#" }46.=:A%,467@<@,.7@,( 6.=:,(67@<@%B:,,.!$-@"}@ 67<,.>:@&@:7,,,   $DATE REFORMAT6.7@<@,(O"@e/67@,.7@"}<@,O67@,.7@<@,2O"@i/67@,.7@<@,O67@,.7@<@,"}< 6. $xSTRING STUFF} 6. ( $B:,"$-@B:,6-@:7,,'!@* "}A#'6-&@267,.>:,   $$$6.7$%@<+%@,$,OO67$%@<$%@,.7$+%@"},%@<$+%@,%@,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$6"}7$%@<$+%@,,. A@  STEP SIX WRITE I## FILE  , 6.,67B:,&@:, @-&"}@7<,4' A  AP6-$@&@6.7<%@,$$7@<@&#},41A)7@<@,42&+).$$7@<@,43A0$$7@<@,44A@&$}$$7@<@,45AP,RUN A PROGRAM167@<@,.D:6-@@;7<,4 &%}' A0@ J6-&@O''67@<%@,.7@<,TL 67%@<%@,..L67%@<%&&}@,.7@ <@,WH-@@%%H   Running 7@<@, ] AS^%a5 &'}A`@5@@bF)@)@(@FAU*AUA`c! A&(}`!6-?:A6}(-@@"(( to exitd+ F:B2y,@Bf+$, FORMAT,DISK FORMAT UTILITY,+ +@&?}AR@+6-,9AA'A @9AA-.. & TO RESTART &@}FOR MENU-  -** ! TO BEGIN FORMATTING-7-7 @____________________-.-@&A}@. @ DISK FORMAT-*-@@* @UTILITY-7-@7 @________________&B}____#-Bp(-3-@@3 @ REMOVE MASTER--5-@@5 @DISK FROM DRIVE &C}2-3-@@3 @PLACE DISK TO BE7-8-@8 @FORMATTED IN DRIVE <-CONSOL ROUTI&D}NEA-B2y@F- B6-F:B2y,K-!!"@*"B P-"@$U-"@B&E}Z-+"@!B2y@+ B_- Bd-@ B$@@@@ D:MENU.BASe- &F} B Bh-@i- 6.D :n-67@<@,.=:,s- Bx-6-@@6 @ fo&G}rmatting disk }-4(AT@46-@- A>% +AR@%  >5-&H}@@5  Directory for Drive # >=-@@= ## NAME EXT # NAME EXT>?-@@&I}? %>-@@$t@INSERT DISK FOR DIRy@ }6-~@-@&J}@  @&(&  in drive .@4-@@"4  to continue@ F:B2y,@&K}Be0@$hBNEW MENU FORMATmBC +A@1AR@CA@|B6-B&L}-@2 B-@@B0-@0 7$@0&@)<$@0,B B"Bp`B&M}-@B6-$@ &@B1-@%@%1 7<%@,7<,B @6-%@B&N}@6-B B-@@%% B$PFLOAD MENU_F 6.6. D:MENU.FLEiF 6.nF AY&O}pF&&6. Insert disk with menusF Be B0xF+@+@@}F@&P}@F@F-@@F@F&&67$@0&@)<$@0,.F F-@&Q}@F 6.6.F@@F&&67$@ &@<$@ ,.F67<,.F F@&R}F-@F 6.F@F&&67$@&@<$@,.F G@G$RINITI&S}ALIZE DIRECTORY R 6-6. B@ R+@+@@R@R''@:,!@G*&T}@:, @XB@R((67B:,%@,.7@<@,R6-%@!R B0R@ B5R"&U}B:R$lR }qR0-@ @0 No files found on diskvR ' $y,$6-F:@,&A() &V},$y@B7t$} D:MARKER.EXE} +AR@ }<<;@ ,;@0,;@ ,;&W}AP,;@%,}6@6@@ D:BOOT.SYS}!6-F:Ai,!6-F:Ap,} B U})&X}@}6-%@#}67,.>:,(} B %7}@ Bs}6. D :MENU.BASx}67@<@,.&Y}=:,}}((6. Insert disk to initialize} Be}B!5}96. D:MARKER.EXE AY%(/ Be9 &Z}B!2} B!%}: }-@@:  Initializing disk}}26.D :AUTORUN.SYS267@<@&[},.=:,}+@+@@} @}@}86. D:MARKER.EXE AY$. AX&\}8 B!e} B!e}A }-@@A ! Loading program, please wait}6. D:MNUWRT.EXE}6-?:&]}A6 @1@@D:USER>@14VIEWED6-@'@1 AP.e}< B@<@@D:USERZ" @VIEWED"@dg +AA(1.f}AA(CA @UAR@g@@i,,@@ D:NOTES.FLEx A.g}? } B(-@@ 2 A?@   <-@@"< " to print, t.h}o continue@!!-@@#@  or to exit,F:B2y,"@" A, AP F.i}:B2y,"@A0**F:B2y,"@*!A Ap@ }:-@@: .j} Program loading, please wait ...AR% D:MENU.BAS, Ap6<-@@" /-@.k}@"< Printing@2-@!6.2-@8J 167%@,.>:,T  3 r$.l}<-@@"< " to print, to continue@!!-@@#@  or to exit,.m}F:B2y,"@" A, A F:B2y,"@A**F:B2y,"@*!A& A .n}y)6-F:@,&A(& )$"y@B7t$ D2:NOTES.BASE "D:NOTES.BAS ;@@,,^ *** System Notes *** The first menu that you see is themain menu. You will have the optionof running a Data Entr2p}y Program, a Report Program, or a program that will allow you to view these notes.From this menu you will also be ableto 2q}format a disk, or exit to basic. The Data Entry Program Menu hasseveral important options available.The following screen2r}s will explain each option and when to use them. **** IMPORTANT NOTE **** YOU MUST HAVE A BLANK FORMATTEDDISK2s} BEFORE YOU RUN THE DATA ENTRYPROGRAM. LABEL THIS DISK AS YOUR DATADISK. All the information that you enter will be sto2t}red on this disk. When yourun the Data Entry Program you will beasked to insert this disk. You can use the format optio2u}n from the Main Menu to format a disk. File Preparation ............... F This option will prepare your datadisk2v} to store the information that you will enter. It is necessary foryou to take this option the first time you run the progr2w}am. REMEMBER ... It is necessary for you to take this option the first time only. Once you have entered data - taki2x}ngthis option WILL ERASE ALL OF YOURDATA to prepare your disk for a new file. Enter new records ............... E 2y}This option allows you to enter theinformation to be stored on your datadisk. To stop entering data and return to the data2z} entry menu press'ESC' twice. Once all of the fields have been entered you will have the opportunityto change a field, 2{}return to the dataentry menu, print the record, or savethe record. Pressing 'ESC' while entering datawill skip the rema2|}ining fields on thedata entry screen. Lookup records ................. L This option allows you to view arecord th2}}at you have entered. You will be prompted to enter the 'KEY'information that corresponds to therecord(s) you want to view.2~}** The Part Number is the keyfield for the Inventory program. This field will contain the 'KEY'information for each 2}record Search records ................. S This option allows you to view allof the records that you have entered2}or only selected records. If you choose to see all records each recordwill be displayed on the screen. If you only want to2} see certain recordsyou must choose a field to 'SEARCH'on and enter information for this option. When you are '2}Looking up' or 'Searching' records you can press : 'ESC' - to return to the menu 'OPTION' - to get a printed copy 2} of the record 'SELECT' - to change the record 'START' - to continue displaying records 'D' - 2}to delete the record Delete records ................. D This option allows you to removerecords from your data file2}. Once arecord is deleted, it cannot berecovered. You will be asked for the 'KEY'information for the record that youwa2}nt to delete. The record will be displayed and you will be asked to verify that you want to delete the record. U2}pdate records ................. UThis option allows you to change anydata that you have entered into yourfile. You will b2}e asked to give the 'KEY' information that has been entered in the 'KEYFIELD' of the record(s) that you want to delete. 2} To cancel the update process press'ESC' To print the record press 'P'. To save the record press 'S'. Exit2} to Main Menu ............. M This option will take you out of the program and exit you back to themain menu. Exit t2}o Basic ................. X This option will take you out of theprogram and exit you into basic. ****** Program Not2}es ****** Since 'Part #' is your 'KEY FIELD',you must enter something in this field.You will not be able to skip entry o2}nthis field. REMEMBER ... This field is used to lookup, updateand delete records. So you should enter valid informati2}on in this field. If you choose to run the reportprogram you will be given the optionto sort your data file. The so2}rt program will arrange your data filein either alphabetic or numeric order. There are two times when youmust sort your f2}ile. 1) The first time you run the report program. 2) When you add, delete, or update records.2} Any other time the sort is optional. When you create a report, you willhave the opportunity to specifyseveral diff2}erent sections. Each section will print only specificinformation except section one which print all information on file.2} You will see a description of what each section does when you run the report program. This product was created 2}usingprograms developed by CodeWriter Corporation. The Data Entry program was createdusing FileWriter. The Report prog2}ram was created usingReportWriter. The Menus were created usingMenuWriter.will have the optionof running a Data Entr0R  AAR@= }-@@= Loading menu. Please wait ...%6} D:MENU.BASd) B+)AR@i1-@@ 1  Insert main menu diskn!(!  i6}n drive 1s@-@@"@ % to continue, for Basicx6-F:B2y,}"@@ ""@6}+" A  D:LINK.BAS= }-@@= Loading menu. Please wait ...%47@7 @____________________qu--@@- @ DEFAULT ISvu*-@@* @1 }DRIVE{uAR@uJ  J ; HIT NUMBER FOR DRIVES (1/2) OR TO CONTINUEu<B2y@  }B<F:B2y,@Bu@6-@6- @@@@K:uAiAp }u'AdAU'B2y@u!6-F:Ad,!6-F:B2y,u"@$u#AU B%# B }u Bu @0)!@1$u&Ap@2&&6-F:Ap,u B)@u0-@@ }- @>:&@2,0$y$}1 B 01@@D:USER }@}+4VIEWED!6. D: }MENU.BAS+ B 5}6. D:NOTES.BAS#}$(}d +AR@1-@@R(Program Loading Please Wai }t.dAR2}%D:BOOTOKTEMPMBASPL2BREADDC*@)0@@C0@@]0@@@"y$|yA@'-}@"/ A@@y$ D:INVENT.PRGCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD=VIEWEDR2}%D:BOOTOKTEMPMBASPL2BREADDC8D1:INVENT165 282110/08/8511101011010100S12345UDOWIPNFFLLOHIGMIEMAR<LD1:INVENT.DAT165 000012/12/12111111S00000--------------------------------236----- Stoc@H